VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsConnect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function ConnectionString() As String
  
  Dim sConnection As String

    'connect string
    'sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=lzg1504_01;Initial Catalog=keytax;User ID=sa;Password=keytax"
    'sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=lzg1504_01;Initial Catalog=keytax_IS;User ID=sa; Password=Mindkey"
    sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=blueprnt-DEV2;Initial Catalog=keytax;User ID=sa; Password=blueprnt"
    'sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=blueprnt_sql;Initial Catalog=keytax;User ID=keytax;Password=mindkey"
    'sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=mindkey01.onsite.hosting.co.za;Initial Catalog=keytax;User ID=sa; Password=mindkey"
  ConnectionString = sConnection
  

End Function ' ConnectionString

Public Function ConnectionStringIS() As String
  
  Dim sConnection As String

    'connect string
    sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=lzg1504_01;Initial Catalog=keytax_IS;User ID=sa; Password=keytax"
    
    
  ConnectionStringIS = sConnection

End Function ' ConnectionString

Public Function ConnectionStringBlueprntDev() As String
  
  Dim sConnection As String

    'connect string
    sConnection = "Provider=SQLOLEDB;Driver={SQL Server};Server=blueprnt_dev;Initial Catalog=keytax;User ID=sa; Password=blueprnt"
    
    
  ConnectionStringBlueprntDev = sConnection

End Function ' ConnectionString
